home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 8 / CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso / pc / mac / __the_ca / __las_ve / under_an.d_o / card_4172.txt < prev    next >
Text File  |  1990-10-02  |  7KB  |  320 lines
  1. -- card: 4172 from stack: in.d_o
  2. -- bmap block id: 4366
  3. -- flags: 0000
  4. -- background id: 4069
  5. -- name: game
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 01
  10. -- high flags: 0001
  11. -- rect: left=17 top=24 right=45 bottom=94
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 01
  24. -- high flags: 0001
  25. -- rect: left=93 top=24 right=45 bottom=155
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 256
  32. -- line height: 16
  33. -- part name: bet
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 01
  38. -- high flags: 0001
  39. -- rect: left=308 top=24 right=45 bottom=415
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: 
  48.  
  49.  
  50. -- part 5 (field)
  51. -- low flags: 01
  52. -- high flags: 0001
  53. -- rect: left=414 top=24 right=45 bottom=465
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: stake
  62. ----- HyperTalk script -----
  63.  
  64.  
  65.  
  66.  
  67. -- part 6 (field)
  68. -- low flags: 01
  69. -- high flags: 2004
  70. -- rect: left=15 top=257 right=339 bottom=376
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 3
  75. -- text size: 14
  76. -- style flags: 0
  77. -- line height: 18
  78. -- part name: 
  79.  
  80.  
  81. -- part 7 (field)
  82. -- low flags: 01
  83. -- high flags: 0000
  84. -- rect: left=383 top=270 right=324 bottom=437
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 3
  89. -- text size: 14
  90. -- style flags: 0
  91. -- line height: 18
  92. -- part name: Die 1
  93.  
  94.  
  95. -- part 8 (field)
  96. -- low flags: 01
  97. -- high flags: 0002
  98. -- rect: left=450 top=270 right=324 bottom=504
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 14
  104. -- style flags: 0
  105. -- line height: 18
  106. -- part name: Die 2
  107.  
  108.  
  109. -- part 9 (button)
  110. -- low flags: 00
  111. -- high flags: A004
  112. -- rect: left=190 top=24 right=46 bottom=290
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Roll
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   --clear dice
  124.   put empty into card field "Die 1"
  125.   put empty into card field "Die 2"
  126.   -- roll dice
  127.   put random(6) into a
  128.   put random(6) into b
  129.   play "dice"
  130.   -- display dice
  131.   put bkgnd field a into card field "Die 1"
  132.   put bkgnd field b into card field "Die 2"
  133.   --payoff
  134.   set NumberFormat to 00.00
  135.   put a+b into roll
  136.   if card field "bet" = "Under 7" then
  137.     if roll <7 then
  138.       put card field "stake" + .25 into card field "stake"
  139.     else
  140.       put card field "stake" - .25 into card field "stake"
  141.     end if
  142.   end if
  143.   if card field "bet" = "Over 7" then
  144.     if roll > 7 then
  145.       put card field "stake" + .25 into card field "stake"
  146.     else
  147.       put card field "stake" - .25 into card field "stake"
  148.     end if
  149.   end if
  150.   if card field "bet" = "7" then
  151.     if roll = 7 then
  152.       put card field "stake" + 1 into card field "stake"
  153.     else
  154.       put card field "stake" - .25 into card field "stake"
  155.     end if
  156.   end if
  157.   if card field "stake" > 99.95 then
  158.     answer "You beat the odds and broke the bank!!"
  159.     play "Hallelujah"
  160.     answer "You may waive your shareware fee!!"
  161.     domenu "Home"
  162.   else
  163.     if card field "stake" < .10 then
  164.       answer "You‚Äôre busted, Pal.  $10 shot to hell!"
  165.       play "Beethoven5a"
  166.       answer "REMINDER: Shareware fee is a mere $1.00" with "BYE!"
  167.       domenu "Home"
  168.     end if
  169.   end if
  170.  
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 10 (button)
  176. -- low flags: 00
  177. -- high flags: 0000
  178. -- rect: left=486 top=23 right=45 bottom=512
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 21700 / 21700
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: Home
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   go to card id 5341 of stack "Home"
  190. end mouseUp
  191.  
  192.  
  193.  
  194.  
  195. -- part 11 (button)
  196. -- low flags: 00
  197. -- high flags: 0000
  198. -- rect: left=16 top=53 right=250 bottom=180
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: Under 7
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   put "Under 7" into card field "bet"
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 12 (button)
  215. -- low flags: 00
  216. -- high flags: 0000
  217. -- rect: left=184 top=53 right=250 bottom=295
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: 7
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   put "7" into card field "bet"
  229. end mouseUp
  230.  
  231.  
  232.  
  233. -- part 13 (button)
  234. -- low flags: 00
  235. -- high flags: 0000
  236. -- rect: left=299 top=53 right=250 bottom=504
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 0 / 0
  239. -- text alignment: 1
  240. -- font id: 0
  241. -- text size: 12
  242. -- style flags: 0
  243. -- line height: 16
  244. -- part name: Over 7
  245. ----- HyperTalk script -----
  246. on mouseUp
  247.   put "Over 7" into card field "bet"
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part contents for background part 1
  253. ----- text -----
  254.  
  255.   •
  256.  
  257.  
  258. -- part contents for background part 2
  259. ----- text -----
  260. •
  261.  
  262.     •
  263.  
  264. -- part contents for background part 3
  265. ----- text -----
  266. •
  267.   •
  268.     •
  269.  
  270. -- part contents for background part 4
  271. ----- text -----
  272. ‚Ä¢       ‚Ä¢
  273.  
  274. •   •
  275.  
  276. -- part contents for background part 5
  277. ----- text -----
  278. ‚Ä¢       ‚Ä¢
  279.   •
  280. •   •
  281.  
  282. -- part contents for background part 6
  283. ----- text -----
  284. ‚Ä¢       ‚Ä¢
  285. ‚Ä¢       ‚Ä¢
  286. ‚Ä¢       ‚Ä¢
  287.  
  288. -- part contents for card part 2
  289. ----- text -----
  290. Your bet is:
  291.  
  292. -- part contents for card part 3
  293. ----- text -----
  294. Over 7
  295.  
  296. -- part contents for card part 4
  297. ----- text -----
  298. Your stake is:  $
  299.  
  300. -- part contents for card part 5
  301. ----- text -----
  302. 10.00
  303.  
  304. -- part contents for card part 6
  305. ----- text -----
  306. Choose the type of bet you want to make, click on it once to wager 25¬¢ and hit ‚ÄúRoll‚Äù.  
  307. Rack up $100 and you have truly won a longshot.
  308. FOR ENTERTAINMENT USE ONLY!
  309.  
  310. -- part contents for card part 7
  311. ----- text -----
  312. ‚Ä¢       ‚Ä¢
  313.  
  314. •   •
  315.  
  316. -- part contents for card part 8
  317. ----- text -----
  318. ‚Ä¢       ‚Ä¢
  319.   •
  320. •   •